﻿Imports BL
Public Class XtraSumatoria4
    Dim oSumatoria As New SumatoriaBL
    Private Sub XtraSumatoria4_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            GridControl1.DataSource = oSumatoria.pb_getDatos()
            'GridControl1.DataSource = oReserva.pb_getReserva(mAppPasajero, mDestino)
            'grdClientes.DataSource = oDistrito.pb_getClienteDistrito(ComboBox1.SelectedValue.ToString)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class